home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utilmus
/
sfxbin20.lha
/
sfx-bin
/
_rexx
/
Differenciate.rexx
next >
Wrap
OS/2 REXX Batch file
|
1995-11-04
|
744b
|
48 lines
/* SFX Differenciate */
OPTIONS RESULTS
ADDRESS REXX_SFX
GetActiveBuffer
buf1=RESULT
IF buf1<9999 THEN DO
GetSampleLength buf1
slen=RESULT
GetSampleRate buf1
srat=RESULT
NewBuffer slen srat 1
buf2=RESULT
SAY "generating ..."
oldval=0
DO pos=0 to slen
GetSampleValue buf1 0 pos
newval=RESULT
dif=oldval-newval
PutSampleValue buf2 0 pos dif
oldval=newval
END
SAY "ready"
END
ActivateSFX /* fertig */
EXIT
AppError:PROCEDURE
cmd=arg(1)
ret=arg(2)
SAY '
Application Error
';say
SAY 'Command 'cmd' failed with Returncode 'ret
SELECT
WHEN ret='1' THEN SAY ' => unknown command'
WHEN ret='2' THEN SAY ' => unknown parameter'
OTHERWISE SAY ' => unknown returncode'
END
SAY
RETURN